home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / hard / misc / MonTest.lha / Montest.b < prev    next >
Text File  |  1994-11-30  |  2KB  |  98 lines
  1. fBeginn:
  2.  Wid=640
  3.  Hei=512
  4.  SCREEN 1,Wid,Hei,4,4
  5.  WINDOW 1,"Monitor-test",(0,0)-(Wid,Hei),31,1
  6.  REM GOTO gitter
  7.  PALETTE 0,.25,.25,.25:dgrau=0
  8.  PALETTE 1,.75,.75,.75:hgrau=1
  9.  PALETTE 2,0,0,0      :schwarz=2
  10.  PALETTE 3,.5,.5,.5   :mgrau=3
  11.  PALETTE 4,1,1,1      :weiss=4
  12.  PALETTE 5,1,1,0      :gelb=5
  13.  PALETTE 6,0,1,1      :cyan=6
  14.  PALETTE 7,0,1,0      :gruen=7
  15.  PALETTE 8,1,0,1      :purpur=8
  16.  PALETTE 9,1,0,0      :rot=9
  17.  PALETTE 10,0,0,1     :blau=10
  18.  PALETTE 11,.75,0,0   :r75=11
  19.  PALETTE 12,.5,0,0    :r50=12
  20.  PALETTE 13,0,0,.75   :b75=13
  21.  PALETTE 14,0,0,.5    :b50=14
  22.  PALETTE 15,.9,.7,0   :orange=15
  23.   
  24.   gitter:
  25.    FOR i=1 TO Wid STEP 32
  26.     LINE (i,1)-(i,Hei)
  27.     LINE (i+1,1)-(i+1,Hei)
  28.     NEXT i
  29.    FOR i=1 TO Hei STEP 34
  30.     LINE (1,i)-(Wid,i)
  31.     LINE (1,i+1)-(Wid,i+1)
  32.     NEXT i
  33.    LINE(130,72)-(511,408),schwarz,bf
  34.   
  35.   Farbbalken:
  36.    LINE(130,72)-(177,169),hgrau,bf
  37.    LINE(178,72)-(224,169),gelb,bf
  38.    LINE(225,72)-(272,169),cyan,bf
  39.    LINE(273,72)-(319,169),gruen,bf
  40.    LINE(320,72)-(367,169),purpur,bf
  41.    LINE(368,72)-(415,169),rot,bf
  42.    LINE(416,72)-(463,169),blau,bf
  43.    REM schwarz vorhanden
  44.    
  45.   Grautreppe:
  46.    REM schwarz vorhanden
  47.    LINE(206,170)-(282,237),dgrau,bf
  48.    LINE(206,170)-(358,237),mgrau,bf
  49.    LINE(359,170)-(434,237),hgrau,bf
  50.    LINE(435,170)-(510,237),weiss,bf
  51.    
  52.   Striche:
  53.    LINE (130,238)-(511,238),weiss
  54.    LINE (138,239)-(511,239),weiss
  55.    LINE (320,170)-(320,304),weiss
  56.    LOCATE 33,28:PRINT"Amiga":LOCATE 33,41:PRINT"MonTest"
  57.    
  58.   Weisses:
  59.    LINE (130,239)-(194,274),weiss,bf
  60.    LINE (447,239)-(511,274),weiss,bf
  61.    LINE (130,275)-(177,308),weiss,bf
  62.    LINE (130,309)-(511,343),weiss,bf
  63.       
  64.   Aufloesungstest:
  65.     FOR aufl=2 TO 5
  66.      FOR anz=0 TO 68/aufl
  67.       FOR str=0 TO aufl
  68.        LINE (178+(5-aufl)*71+(anz+1)*aufl,275)-(178+(5-aufl)*71+(anz+1)*aufl,308),weiss
  69.        NEXT str
  70.       NEXT anz 
  71.      NEXT aufl   
  72.   
  73.   rechts:
  74.     LINE(384,344)-(450,404),mgrau,bf
  75.     LINE(451,344)-(510,404),dgrau,bf
  76.     
  77.   Farbuebergang:
  78.     LINE (130,344)-(193,372),rot,bf
  79.     LINE (194,344)-(257,372),r75,bf
  80.     LINE (258,344)-(321,372),r50,bf
  81.     LINE (130,372)-(193,404),blau,bf
  82.     LINE (194,372)-(257,404),b75,bf
  83.     LINE (258,372)-(321,404),b50,bf
  84.     
  85.   Kreis:
  86.     CIRCLE (319,240),216,weiss,,,1
  87.     CIRCLE (319,240),215,weiss,,,1
  88.    
  89.                                   
  90.   ende:
  91.         if mouse(0)=0 Then GOTO ende
  92.     
  93.  
  94.     window close 1
  95.     screen close 1   
  96.     end
  97.                                  
  98.